Top 10k strings from 16-48 Magazine - Issue 18 (1985)(16-48 Tape Magazine).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
10 PRESS A KEY
8 GGGGGGGGGGGGGGGG
6
5 *((wa-ca)/180
4
3 FFFFFFFFFFFFFFFFFFF
3 ;"each of the following holes :-":
3 ;"Ludoid5
3 9888888888
3 "Nothing happens":
3
3
3
3
3
3
3
3
2 z$="10030203STOP THE TAPE":
2 z$="10030203RUN THE TAPE":
2 z$="00000202THAT'S ALL FOLKS":
2 n,o;" ":
2 gazine Ltd. *6\$:
2 d$="n ew":
2 d$=" sew":
2 a$=" "
2 RUN THE TAPE
2 RETURN TO MAIN MENU"
2 Press any key
2 PRESS ANY KEY
2 GGGGGGGGGGGGGGGGGGGGGG
2 GGGGGEEEEFFFFFFFGGGGGG
2 GGGGGEEEEEEEEEEEGGGGGG
2 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2 ;a$;"! With your handicap of";
2 ;"tutor9":
2 ;"at Hole No. ";h:
2 ;"YOU ARE ON THE GREEN":
2 ;"HIT A KEY(
2 ;"BEGIN 1":
2 ;"16/48D&G18":
2 ;" ":
2 ((prog+168
2 "You cannot":
2 "I cannot help you":
2 "8",i;"Press a key for Help;"'':
2 "18")="1":
2 " ":
2 to page backwards."''''"
2
2
2
2
1 |l|ll|l|<n
1 z$="ll130201AND ":
1 z$="ll020302GREEN MEN":
1 z$="ll000402DUNGEONS":
1 z$="18010202THEN READ ON....":
1 z$="16040303LUDOIDS":
1 z$="14000103Don't know the answers??":
1 z$="13030305CHAPTER 9":
1 z$="13010505CORNER":
1 z$="12000204Let the tape run":
1 z$="11250103Camp one":
1 z$="11060203Ludoids":
1 z$="11000202What's a Ludoid?":
1 z$="10020203RUN THE TAPE":
1 z$="10000202LET THE TAPE RUN":
1 z$="09020203STOP THE TAPE":
1 z$="08240102Chapter 5":
1 z$="07000103What's a transmat?":
1 z$="06070105MACHINE CODE TUTOR":
1 z$="06020305BEGINNER'S":
1 z$="0310020216/48":
1 z$="0110020216/48":
1 z$="00140201OF":
1 z$="00050102WRITING BETTER BASIC":
1 z$="00050102WHAT'S IT ALL ABOUT?":
1 z$="00040202THE PROGRAM":
1 z$="00030202WHAT STRING?":
1 z$="00030202IMPROVEMENTS":
1 z$="00020202PRINT A STRING":
1 z$="00020202INVERSE REMS":
1 z$="00010302THE RESULT":
1 z$="00010302THE FORMAT":
1 z$="00010202PRINT ASSEMBLY":
1 z$="00010202INDEX REGISTERS":
1 z$="00000402LISTINGS":
1 z$="00000402EPILOGUE":
1 z$="00000202THE 1ST PROGRAM":
1 z$="00000202LEFT RIGHT PRINT":
1 z$="00000202BE USER FRIENDLY":
1 yy2=(yy2-136
1 yy1=(yy1-136
1 your misery with
1 you ate?":
1 y1=y+(n-y)*
1 y$="You see ":
1 y$;"a camp site in a"'"clearing to the north":
1 y$;"LUDOIDS living in the"'"camp.":
1 xx2=(xx2-120
1 xx1=(xx1-120
1 x=number,count=No of goes
1 x1=x+(n-y)*
1 x,y;b$(n);:
1 what you do. Find the Ludoid
1 tutor9
1 tre1,tre2;"
1 tre1,tre2:
1 they're not yours anyway.":
1 the usual diet of stale bread
1 the desk. Now all you have to dois find the right cubicle.":
1 t$="an ew 10100000Gbi0kkww000"
1 st2=st2+s2
1 st1=st1+s1:
1 serve button to get the food.
1 right we will simply INC (IX+2) and then use the print routine."
1 return to BEGIN 1, usually STOP would do.
1 ralphpic
1 ralphcode
1 ralph JE
1 pt2=st2-71
1 pt2=st2-68
1 pt2=st2-64
1 pt2=st2-59
1 pt2=st2-55
1 pt2=st2-51
1 pt2=st2-48
1 pt2=st2-44
1 pt2=st2-39
1 pt2=st2-35
1 pt2=st2-31
1 pt2=st2-26
1 pt2=st2-23
1 pt2=st2-19
1 pt2=st2-15
1 pt2=st2-11
1 pt1=st1-71
1 pt1=st1-68
1 pt1=st1-64
1 pt1=st1-59
1 pt1=st1-55
1 pt1=st1-51
1 pt1=st1-48
1 pt1=st1-44
1 pt1=st1-39
1 pt1=st1-35
1 pt1=st1-31
1 pt1=st1-26
1 pt1=st1-23
1 pt1=st1-19
1 pt1=st1-15
1 pt1=st1-11
1 progress of the new
1 problems with destroying the
1 pressing your wrist detector.
1 press the detector again.":
1 p$="1122334455667722744":
1 one. EXAMINE STRAW":
1 nice batteries.":
1 next page is a help menu for thefirst three chapters.":
1 meaning Earth as their standard,So keep an eye out for it. The
1 lx1,lx2,ly1,ly2,b0,b1,l0,l1,b2,b3,l2,l3,b4,b5,l4,l5,t0,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11
1 loader
1 law). You must also leave the
1 l,c;"You will find the key behind
1 l,c;"You need some anti-freeze
1 l,c;"You have to eat and sleep
1 l,c;"Time again to put you out of
1 l,c;"This is a very cold planet.
1 l,c;"These aren't chickens they are
1 l,c;"Some people are having
1 l,c;"Shame on you this is an easy
1 l,c;"Read the labels. TAKE LABEL.":
1 l,c;"Not much. But, they do have
1 l,c;"Nor can I. You have to be
1 l,c;"My Idea. I get so bored with
1 l,c;"Examine the carrots. Take
1 l,c;"Do You remember that mushroom
1 l,c;"Connect the wires to the
1 l,c;"Ask the old woman.":
1 jammer and destroy it by
1 j1,j2,j3,j4:
1 instructions do tell you how to
1 instructions anyway? So this is
1 instructions
1 in adventures.
1 highly trained to do so.
1 hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhohhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhohooooooooohhhhhhhhhhhhhhhhhhhhooooooooooooooooooooohhhhhhhhhhhooooooooooohhhhhhhhhhhhhhhhhhhhhooooooooooohhhhhhhhhhhhhhhhhhhhhohhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhohhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhohhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhooooooohhhhhhhhhhhhhhhhhlllllllllllllll((((((((((((((((///,............--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((
1 found a clue to the Ludoid base
1 deal with them, but who reads
1 count=count+1
1 correct guess
1 check and print result
1 by,bx,ly,lx:
1 burger etc. Then press the
1 before you can leave (Galactic
1 battery or if you still have theShotgun blast it.":
1 battery and key behind. Well,
1 b$="You have now traced the LUDOIDS | to ajungle planet.":
1 b$="Press I for instructions P for a Print- out, and S to save this program (C Continues)":
1 b$="ENTER the code from last months game (OR hit ENTER)":
1 b$;"! With your handicap of";
1 a$="_opqrstu":
1 a$="TRIG":
1 a$="TRAP":
1 a$="MACH":
1 a$="DETEC":
1 a$="CIGA":
1 a$="CHEST":
1 a$="CAMP":
1 a$="BOTT":
1 ]MAGNETIC MAGAZINES 83:H\
1 Zolyx
1 Z$=" ":
1 You become a midnight snack":
1 When you have done this and
1 W$(W)=A$(16
1 W$(W)=" ":
1 W P Q R S T U V W@P@Q@R@S@T@U@V@W`P`Q`R`S`T`U`V`W
1 UUUUUUUUUUUUUUU
1 UUUUUUUUUUU
1 UUUUUUUUUG
1 UUUUUUUUUA
1 UUU?EUUUUUUUUW
1 UNDER THE MOONBASE, IN A CAVERN!
1 Transmat jammers. The
1 There is a shelter NORTH(ish). ":
1 The Long Way
1 TVVn<808TZn
1 THE STORE, FOOD FOR THE EATING !
1 THE SMELLY END OF THE AIR VENTS!%
1 STOP THE TAPE
1 S$(N),S(N):
1 Red Herrings.
1 RETURN TO MAIN MENU
1 RALPH I
1 Program by B.C.Thorne September 1984*K\~
1 Press buttons for Coke, cheese,
1 Press any key to Play.
1 PRESS 'ENTER' - TO CONTINUE
1 PICTURE
1 O H I J K L M N O@H@I@J@K@L@M@N@O`H`I`J`K`L`M`N`O
1 NOTES on highlighted line:
1 N;" C O N G R A T U L A T I O N S";
1 MAGNETIC MAGAZINES :
1 LWH Volume 2
1 LUDOIDS; Chapter 3
1 LUDOIDS; Chapter 2"''"
1 LUDOIDS; Chapter 1"''"
1 LUDOIDS #5
1 LET THE TAPE RUN
1 LD IX,(23635)
1 LABEL OPERATION
1 K$="ZXMHA"
1 It's on me.":
1 It is your job to stop them.
1 Intergalactic Transport System.
1 IN A COLD WORKSHOP - GOOD LUCK !
1 However, Try starting the
1 HPd`hp:BtZRjbLz
1 Golf G
1 Golf ;
1 Go on make a pig of yourself,
1 GGGGGGEEFFFFFFGGGGGGGG
1 GGGGGGEEEEEEEGGGGGGGGG
1 GGGGGGEEEEEEEEEGGGGGGG
1 GGGGGEEEEFFFFFFGGGGGGG
1 GGGGGEEEEFFFFFFFFGGGGG
1 GGGGGEEEEEFFFFFGGGGGGG
1 G @ A B C D E F G@@@A@B@C@D@E@F@G`@`A`B`C`D`E`F`G
1 FINAL VERSION
1 Especially the Transmat
1 EXPLODE
1 EXPL=61456
1 EXPL WILL PRODUCE THE EXPLOSION. ANOTHER EXPLOSION WITH THE SAME PARAMETERS DOES NOT REQUIRE ANOTHER 'GOSUB 9000'."
1 DIS HS-TAB
1 Congratulations !
1 CURSOR UP & DOWN, 0 to move on Press R to run code, V to escape
1 CURSOR UP & DOWN, 0 TO mOVE ON. (Press R to run this program.)
1 C$=C$+" ? ":
1 C$="WAIT FOR A WHILE":
1 C$="QUIT GAME":
1 C$="INVENTORY":
1 C$="HELP":
1 C$="GO WEST":
1 C$="GO UP ":
1 C$="GO SOUTH":
1 C$="GO NORTH":
1 C$="GO EAST":
1 C$="GO DOWN":
1 BEGIN 1
1 B.C.THORNE APRIL 1983*S\
1 B$=B$+"
1 B$="*******************************":
1 ANY KEY FOR HOLE No.";h+1
1 A;A$;": ";:
1 A$="TENT":
1 A$="STICK":
1 A$="SOUTH":
1 A$="PETROL":
1 A$="NORTH":
1 A$="BOTTLE":
1 A$="BOTT":
1 A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ !*,.0123456789":
1 <<<<<<<<<<<<<
1 <<<<<<<<$$$$$
1 ;x;" IS RIGHT"
1 ;st2;" (";pt2;")"
1 ;st1;" (";pt1;")":
1 ;s;" Strokes for ";b$;
1 ;s;" Strokes for ";a$;
1 ;s;" Strokes at Hole No. ";h:
1 ;s29;" (";s29-4
1 ;s28;" (";s28-5
1 ;s27;" (";s27-3
1 ;s26;" (";s26-4
1 ;s25;" (";s25-4
1 ;s24;" (";s24-4
1 ;s23;" (";s23-3
1 ;s22;" (";s22-4
1 ;s21;" (";s21-4
1 ;s218;" (";s218-3
1 ;s217;" (";s217-4
1 ;s216;" (";s216-5
1 ;s215;" (";s215-4
1 ;s214;" (";s214-4
1 ;s213;" (";s213-3
1 ;s212;" (";s212-4
1 ;s211;" (";s211-5
1 ;s210;" (";s210-4
1 ;s19;" (";s19-4
1 ;s18;" (";s18-5
1 ;s17;" (";s17-3
1 ;s16;" (";s16-4
1 ;s15;" (";s15-4
1 ;s14;" (";s14-4
1 ;s13;" (";s13-3
1 ;s12;" (";s12-4
1 ;s11;" (";s11-4
1 ;s118;" (";s118-3
1 ;s117;" (";s117-4
1 ;s116;" (";s116-5
1 ;s115;" (";s115-4
1 ;s114;" (";s114-4
1 ;s113;" (";s113-3
1 ;s112;" (";s112-4
1 ;s111;" (";s111-5
1 ;s110;" (";s110-4
1 ;ha;" you will be given 1 stroke at";
1 ;ha2;" you will be given 1 stroke at";
1 ;ha1;" you will be given 1 stroke at";
1 ;a$'a$'a$'a$'a$'a$;
1 ;S(N);" "(
1 ;''"PRESS '";K$(1
1 ;"to play.":
1 ;"to play":
1 ;"so your nett score is ";s
1 ;"jumper and ";b$;" a red one.";
1 ;"You may make a note of this or if you have a printer connected PRESS c for a copy."
1 ;"YOU MIS-HIT THE BALL";
1 ;"YOU ARE ON THE GREEN"
1 ;"YOU ARE IN THE LAKE":
1 ;"YOU ARE IN THE BUNKER ";n$;"!";
1 ;"WRONG CLUB! 2 STROKES REQUIRED":
1 ;"WIND FORCE = ";wi
1 ;"WELCOME to 'GOLF'",
1 ;"The very best of luck to you. Please ENTER your handicap below"
1 ;"The computer has thought of a number between 0 and 999. Try toguess the number in the fewest possible goes."
1 ;"The best of luck to both of you.";a$;" is wearing a blue";
1 ;"Sorry this program has been"'"copied once already":
1 ;"STROKES ";s:
1 ;"STROKE AND DIST. PENALTY":
1 ;"STRENGH OF PUTT (1 to 9) ? >";:
1 ;"STARRING ]";
1 ;"SORRY, CAN'T DO THAT !!":
1 ;"SELECT A";
1 ;"RALPH ON ALPHA 2";
1 ;"R A L P H O N A L P H A 2":
1 ;"Press a key":
1 ;"Please disconnect your Kempston interface and re-load the game."
1 ;"Please continue playing":
1 ;"Please ENTER your handicaps below."
1 ;"Playing":
1 ;"PRESS ANY KEY FOR A NEW GAME":
1 ;"PRESS A KEY"
1 ;"PRESS A KEY WHEN THE BEEP SOUNDS";
1 ;"PLEASE TELL ME IF THERE ARE 1 OR",
1 ;"PLEASE ENTER YOUR NAMES BELOW":
1 ;"PLEASE ENTER YOUR NAME BELOW":
1 ;"PLEASE 'STOP' YOUR TAPE";
1 ;"PAR ";p;" ";di;"yds":
1 ;"OUT OF BOUNDS";
1 ;"NOW CHOOSE A WIND FORCE",
1 ;"NOT RAINING!":
1 ;"MEN LEFT";
1 ;"Ludoids are futuristic Luddites.Their aim is to halt the
1 ;"LUDOIDS 1":
1 ;"LUDOIDS #5":
1 ;"LUDOIDS #5"
1 ;"LUDOIDS #3":
1 ;"LUDOIDS #2":
1 ;"LEVEL NO : ";LEV::
1 ;"KEYBOARD TO CONTINUE.":
1 ;"KEY SELECTION PHASE";
1 ;"IT IS RAINING! BRING YOUR BROLLY":
1 ;"IN THE HEAVY RAIN":
1 ;"HOLE ";h:
1 ;"HIT TREE ! 1 STROKE PENALTY":
1 ;"HIGH SCORE TABLE"
1 ;"HELLO ";a$;"!",
1 ;"HELLO ";a$;" and ";b$;"!",
1 ;"HARD LUCK !";
1 ;"H. DUDDY"'''''"
1 ;"GUESSING GAME"
1 ;"For help press;":
1 ;"DO YOU WANT RAIN ?(PRESS y or n) (Remember that rain may causeyou to mis-hit the ball.)":
1 ;"DEMO MODE";
1 ;"CLUB SIZE>";:
1 ;"But you were allowed 1 stroke";
1 ;"BEGIN 1"
1 ;"AND PRESS ANY KEY ON YOUR";
1 ;"ALL THE KEYS ARE OKAY !";
1 ;"AIR LEFT";
1 ;"2 PLAYERS (Press 1 or 2)":
1 ;"16/48EXPL
1 ;"16/48D&G18"
1 ;"10 LET x=
1 ;"1 STROKE PENALTY":
1 ;"(WX2,WY2)"
1 ;"(WX1,WY1)":
1 ;"(Press any key 0 to 9)":
1 ;"(EX2,EY2)"
1 ;"(EX1,EY1)":
1 ;"################################":
1 ;" YOUR NAME CAN NOW BE ENSCRIBED ONTO THE SCROLL OF HEROISM"
1 ;" RALPH ]";
1 ;" ANGLE ? >";
1 ;" ANGLE ? ";
1 ;" A WIND DIRECTION (Any angle 0 to 360 Degrees)>";
1 ;" WHAT A SHAME...YOU APPEAR TO HAVE RUN OUT OF TIME!!"
1 ;" ":
1 ;" ":
1 ;" ":
1 ;" "
1 ;" ":
1 ;" "
1 :<<<:::::?<<:
1 :888888888
1 988888:888
1 8888888888888
1 70 IF guess>x
1 50 INPUT ""Type your guess and press ENTER"";guess
1 32
1 23635+256*
1 16/48D&G18
1 16/48 script
1 0000000000000000000000000000000
1 ,o;" ADVENTURE HELP FROM YAZ. "
1 ,,,,,,,,,,:
1 ,"VYVYAN",2545
1 ,"SLITHER, PAUL",6567
1 ,"RICK",4000
1 ,"R A L P H",7678
1 ,"FOZZY",3500
1 ,"DODO",3000
1 ,"DAZ 'N' ANDY",1434
1 ,"ARCHIBALD",5500
1 ,"'SIR' CLIVE",4457
1 *1000)"'"40 REM enter a guess."'"50 INPUT guess"'"60 REM check guess and print result"'"70 IF guess>x
1 *1000)"'"20 INPUT g"'"30 IF g>x
1 ********************************* ** EXPLODEIT ** *********************************
1 *********************************
1 );"' TO SELECT THE"'" CORRECT LETTER THEN PRESS '";K$(3
1 );"' AND '";K$(2
1 )+"' .... MOVE RIGHT.","'"+K$(3
1 )+"' .... MOVE LEFT.","'"+K$(2
1 )+"' .... HOLD KEY.","'"+K$(5
1 )+"' .... ACTION KEY.","'"+K$(4
1 )+"' .... ABORT KEY.","","TO RE-DEFINE MOVEMENT KEYS :","PRESS THE 'D' KEY.","","","","","YOUR MISSION IS :","TO GUIDE RALPH AROUND EACH","LEVEL OF THE MOONBASE,","COLLECTING VARIOUS OBJECTS","SCATTERED AROUND BY THE","VIBRATIONS FROM A RECENT","MOONQUAKE."
1 (prog+1217
1 (b$;"'s handicap ? > ");ha2:
1 (a$;"'s handicap ? > ");ha1:
1 (I personaly want to join them!)They use an ancient symbol
1 (Glycol). Look in the store
1 (48th Century) technology.
1 ((prog+474
1 '''"Welcome to this new series of programs for beginners at BASIC on the Spectrum."
1 '''"We will take a very simple BASICprogram and do three things."
1 '''"We have already seen how to use the RST 10H routine to print a single character. There is a ROMroutine at 203CH (8252dec) whichprints a whole string."
1 '''"We are going to print a user defined ""b"" between two spaces"'"in red ink at line 20 and column 15."
1 '''"The code for this program is located in the UDG area. The 8 numbers defining the print codesfor the sprite are at
1 '''"The assembly listing for a program which does no more than this simple print statement is -"
1 '''"The Z80 has two index registers,IX and IY. These are 16 bit registers and are very useful for holding base addresses of tables of numbers."
1 '''"The REMs in the listing at 6000 are highlighted by pressing INV.VIDEO after pressing REM andpressing TRUE VIDEO at the end of the line."
1 '''"See you next month."''"Press any key to start again."''''"
1 '''"SPRITE is ";
1 '''"Next month we look at Interrupt Mode 2!"''"Press any key to start again."''''"
1 '''"Listings should abound with REM statements and variables should be given names which reflect their function. Like this."
1 '''"If you ran the little program you will have noticed that it isnot at all friendly. The next stage is is to illustrate how wecan put some flesh on the bare bones of th program."
1 '''"INPUT statements should always be accompanied by some printed instruction so that the user knows what to do next."''"
1 '''"After reading the keyboard last month we ought to be ready to try a litle user controlled animation."
1 '''"A much more complete version of our little program is situated at line 6000 in this program. A variable 'count' has been added to count the number of guesses and a more attractive ending has also been added."
1 ''"These programs assume that you have at least had a stab at reading the manual, but not thatyou have had time to take all ofit on board."
1 ''"There are two reasons for doing this."''"
1 ''"The program should also provide feedback to the user so that he knows what he has done and has some confidence that the programalso knows."''"
1 ''"I hope the rather silly speed ofthis routine will inspire you totry using it in a loop which looks at lots of sprites and still has time to do something else."
1 ''"Here is a simple game. You have to guess the computer's secret number."
1 ''"Hardened hackers had better use the quit key now!"
1 ''"For the sake of clarity we will stick to using lower case for everything except KEYWORDS."
1 ''" HARD LUCK CHUM...YOU WEREN'T GOOD ENOUGH TO QUALIFY FOR THE HIGH SCORE TABLE! "
1 ''" NOW YOU CAN PRODUCE GREAT EXPLOSIVE GRAPHICS USING THIS MACHINE CODE ROUTINE."
1 ''" EXPLODEIT: THE EASY WAY TO SMASH ANYTHING ON THE SCREEN INTO ITS INDIVIDUAL PIXELS."
1 ''" NO SPRITE IS SAFE !"
1 '"or for the perverse it could be"''"
1 '"Where SPRITE is the address at which we stored the string."
1 '"We will be using the Index registers in this routine as they will prove very useful if you ever expand the program to deal with more than one sprite."
1 '"We are going to write a short program to move a small sprite around the screen."
1 '"To use the routine we load DE with the address at which we have stored our first character (since this routine uses RST 10H this can be a control code.) and we load BC with the number of characters (including controlcodes) in the string."
1 '"This version of the program still has some draw backs. Entering a letter instead of a number will cause the program tocrash out with a 'Variable not found' error report."
1 '"This program has already stored these 8 codes at ";
1 '"There are exits visible;"'("North,"
1 '"Then we CALL 203CH and Bob's your uncle."
1 '"The program still needs to be MUG TRAPPED, but that will have to wait until next month."
1 '"So if IX holds the first addressthen then (Ix+d) is the number stored d addresses futher up thetable."
1 '"Note the semicolon."
1 '"Look at page 183 of the manual."
1 '"LD IX,SPRITE LD BC,65278 (CAPSHIFT to V)"'"IN A,(C)"'"BIT 4,A (zero if V is pressed)"'"RET Z (back to basic if it is)"
1 '"In BASIC this is"''"
1 '"IX and IY can be used with displacements, any number up to 255 (FFH) can be added so that particular values of a table canbe accessed."
1 '"First an introduction to anotheruseful little ROM routine."
1 '"10 REM guessing game."'"20 REM x is unknown number"'"30 LET x=
1 '" THIS PROGRAM ALLOWS YOU TO EXPLODE ANY OBJECT ON THE SCREENBY SPECIFYING THE RECTANGULAR 'WINDOW' CONTAINING THE OBJECT."
1 '" THERE FOLLOW DETAILS OF HOW TO CHOOSE VALUES FOR THE VARIABLES."
1 '" THE VARIABLE 'VRANGE' AFFECTS THE RANGE OF VELOCITIES ANY PARTICLE CAN TAKE. 'VRANGE = 7' IS SUITABLE FOR MOST CASES, BUT TRY 'VRANGE = 15' FOR LARGE OBJECTS."
1 '" THE VARIABLE 'GRAV' AFFECTS GRAVITY. 'GRAV = 0' GIVES NO GRAVITY, ANY OTHER VALUE MAKES THE PIXELS MOVE TOWARDS THE BOTTOM OF THE SCREEN."
1 '" THE PROGRAM IS LOCATED AT 61440SO ALWAYS DO A 'CLEAR 61439' BEFORE LOADING IT IN.";
1 '" THE OUTER WINDOW (VARIABLES WX1,WY1,WX2,WY2), CONTROLS WHEREPARTICLES FROM THE EXPLOSION DISSAPEAR. THESE ARE SET IN A SIMILAR FASHION TO THE EXPLOSIONWINDOW VARIABLES."
1 '" NOTE THAT THE EDGES OF THIS WINDOW SHOULD NOT BE SET CLOSER THAN 4 PIXELS FROM THE EDGE OF THE SCREEN."
1 '" NOTE THAT IF THERE ARE NO SET PIXELS WITHIN THE 'EXPLOSION WINDOW', THEN NOTHING WILL HAPPEN."
1 '" GRAVITY CAN ALSO BE APPLIED, AND THIS ALLOWS FIREWORK EFFECTSTO BE GENERATED. THE SPEED OF THE EXPLOSION CAN ALSO BE VARIED."
1 '" FIRSTLY, THE EXPLOSION WINDOW MUST BE SET UP, (VARIABLES EX1, EY1,EX2,EY2)."
1 '" AS A LARGE NUMBER OF PARAMETERSMUST BE PASSED TO THE MACHINE CODE ROUTINE I HAVE WRITTEN A BASIC SUBROUTINE AT LINE 9000 TOHELP WITH THE SETTING UP."
1 '" AFTER THIS,
1 '" A DIAGRAM SHOWING THIS FOLLOWS."
1 $8888888888888888888888888888888888888888888888888888888888888888888888
1 #p;"H = HELP"'"P = PAUSE"'"R repeats the previous command"'"Q = QUIT"
1 #p''"You will need to draw a map of where you go to avoid getting lost.":
1 #p''"Once the jammer has been"'"destroyed, you can return to"'"your spaceship by pressing the wrist detector."
1 #p'"Your mission is to find the"'"LUDOIDS |, and destroy their"'"Trans-Mat jammers"
1 #p'"You have a WRIST DETECTOR which will destroy a jammer if you"'"press it when you are near one."
1 #p'"The following letters"'"ON THEIR OWN have special"'"meanings"
1 #p'"The Computer will tell you what happens. You tell the computer what you want to do by typing inENGLISH and then pressing
1 #p'"N = Go NORTH"'"S = GO SOUTH ...etc"''"V or L Shows the VIEW"'"I = INVENTORY (""What have I got with me ?"")"
1 #p'"LOAD- allows you to load the"'"details back again."
1 #p'"Avoid negatives or trying to do more than one thing at a time."
1 #P''"SAVE- will save details of the game at any point to tape, in two short pieces of code"
1 #P''"Hi-res full screen pictures willremain displayed until you pressany key."
1 "zzzzzz...":
1 "increase column number by 1","Put maximum column number in A","Are we at right edge of screen?","If not at edge we can print,","But if we are then make column 28 to prevent leaving screen."
1 "correct":
1 "a";". To move to the
1 "Your fate is not yet SEWN up !":
1 "Your detector cannot get close enough to destroy the jammer"'"You must destroy the machine !":
1 "You take a ";m$:
1 "You set fire to it."'"
1 "You see nothing more to help you":
1 "You see a horribly familiar"'"animal looking at you.":
1 "You read some co-ordinates on it":
1 "You made it !":
1 "You have with you;":
1 "You have the following clubs;"''"
1 "You have nothing to eat":
1 "You have nothing to drink":
1 "You have not found the"'"co-ordinates yet GO BACK !":
1 "You have not destroyed the"'"jammer":
1 "You drop the ";m$:
1 "You don't find anything":
1 "You do not have the correct key":
1 "You destroy the jammer !":
1 "You cannot"
1 "You cannot go in that direction":
1 "You can see; ";m$
1 "You are not strong enough":
1 "You are in dense jungle. It is nightime.":
1 "You are in an empty campsite.":
1 "You are in a very small"'"clearing, surrounded by"'"Venus man trap plants.":
1 "You are in a small clearing withtwisting paths leading away in all directions.":
1 "You are in a patch of Bamboo":
1 "You are ignored":
1 "You are captured by the Trap."'"You are killed":
1 "You are captured and killed by the LUDOIDS.":
1 "You are an area of Tall grass & jungle.":
1 "What are you going to do ?"'"
1 "Type your guess and press ENTER.";guess
1 "Time passes...":
1 "This area of jungle seems to be well looked after.":
1 "This SAVEs this stage of the"'"game on to tape."'"Do you want to carry on ? Y/N":
1 "This LOADS a previous game from tape"'"Do you want to continue ? Y/N"
1 "There is no reply":
1 "There is a fence in front of you":
1 "There is a campsite to the south":
1 "There are triggers in the trap.":
1 "The trap shuts on the stick.":
1 "The program is too long for one screen so here is the keyboard reading bit. (
1 "The number is smaller than ";guess
1 "The number is bigger than ";guess
1 "The machine has put the jammer in another dimension":
1 "The key does not fit":
1 "The first instruction is in fact "'"
1 "The Ludoids have gone, they haveleft a strange machine in the"'"campsite":
1 "The LUDOIDS have gone.":
1 "The LUDOIDS are involved in a"'"strange ceremony.":
1 "THIS WILL CAUSE A REACTION TO","TAKE PLACE IN THE ATMOSPHERE","WHICH WILL THEN ALLOW YOU TO","PASS ONTO THE NEXT LEVEL.","","","BEWARE OF THE FOLLOWING :","1...FALLING ONTO OBJECTS.","2...FALLING ONTO ROPES.","3...FALLING ONTO TRANSPORTORS.","4...BECOMING STARNDED.","5...LOW PLATFORMS."
1 "THE HOLD KEY ? "
1 "THE ACTION KEY ? "
1 "THE ABORT KEY ? "
1 "Sorry, I didn't understand."'"Try again.":
1 "Select upper screen channel","Open the channel","Put IX on the stack so that","We can pop it into DE","Put the string length in BC","Call the print string routine","Go back to the start."
1 "Rewind Tape & play to
1 "Reduce the column number by 1","If the column number is still over 0 then it is OK to print","If column is 0 then restore it to 1 to prevent leaving screen.","Then you can print."
1 "RND is a random number between 0 and 1, so RND*1000 is a randomnumber between 0 and 1000. INT means Integer, so x is a random whole number between 0 and 999.","The computer waits for you to type a number. When you press ENTER the number is assigned to the variable 'g'( for guess)."
1 "REWIND TAPE & PLAY":
1 "R.O.A.2
1 "Put empty cartridge in drive 1"'"
1 "Please ENTER your handicap > ";ha:
1 "PRINT LD A,2"'" CALL 1601H"'" PUSH IX"'" POP DE"'" LD BC,8 "'" CALL 203CH"'" JR START"
1 "PLAY THE TAPE":
1 "OOPS! wrong planet":
1 "Name ? >";a$:
1 "NEIL",8789
1 "Make sure that your map is"'"accurate":
1 "Loading code":
1 "LUDOIDS #5"
1 "LOOK first":
1 "LEFT DEC (Ix+2)"'" JR NZ,PRINT"'" LD (IX+2),1"'" JR PRINT"'"RIGHT INC (IX+2)"'" LD A,29"'" CP (Ix+2)"'" JR NZ,PRINT"'" LD (IX+2),28"
1 "KEY TO MOVE RIGHT ? "
1 "KEY TO MOVE LEFT ? "
1 "JR START (start agin)"
1 "In which direction ?":
1 "If you end up with an error report, just type RUN & ENTER."
1 "If g is larger than x then printthat the unknown number is smaller.","If g is smaller than x then print that the unknown number isbigger.","If g is equal to x then print that the correct guess has been made.","Go back to line 20 so that a newguess can be entered."
1 "I hope you don't stick around"'"too long.":
1 "Hi there !":
1 "EXAMine things":
1 "ENTRY code ? (or
1 "Do you want the instructions ? (Y/N)"
1 "DETECTOR","BAMBOO STICK","BOTTLE","(FILLED WITH PETROL)","CAN OF PETROL","TENT MATERIAL","LIGHTER","CIGARETTE PACKET"
1 "BIT 1,A (zero if Z pressed)"'"JR Z,LEFT (move left for Z)"'"BIT 2,A (zero if X is pressed)"'"JR Z,RIGHT (move right for X)"
1 "Are you sure ? Y/N"''"n.b. Press ""X"" to NEW this"'"program."
1 "Answer found in ";count;" goes."
1 "ANOTHER WINDOW CAN BE SET TO CONTAIN THE EXPLOSION."
1 "9";"The":
1 "9","1","3000","2","1800","42","3520","8","3540","30","3550","29","3550","15","3550","76","3580","77","3580"
1 "8",i;"Press keys 1-5 for help":
1 "7";" Press Any Key ":
1 "7","2","1880","3","1600","4","1900","0","1820","42","1820","8","1895","7","2000"
1 "6","1","1880","3","1000","4","1500","0","1820","42","1820","8","1895"
1 "6"*A,B-256
1 "6")="u")+("and Down"
1 "5","1","2240","2","2250","3","2260","4","2270","8","2280"
1 "5")="w")+("up,"
1 "41165",hb:
1 "41164",lb:
1 "4")="e");
1 "3";"What use is a C5?"''" How to open the door"''" Must get some sleep?"''" Hungry?"''" Can't leave?"''"
1 "3";"Shotgun empty?"''" No Coordinates?"''" Where is the Ley field?"''" Chicken problems?"''" Where is the jammer?"''"
1 "3";"Cold?"''" can't fly a helijet?"''" Can't break the ice?"''" No coordinates?"''''"
1 "3","2","1902","3","1900","7","1700"
1 "3","1","2000","2","1900","7","1500"
1 "3","1","1900","3","1800","7","1902"
1 "3","1","1600","3","2200","4","1800"
1 "3")="s")+("East,"
1 "2nd NAME ? >";b$:
1 "29")="1":
1 "28")="1":
1 "27")="1":
1 "23658",o:
1 "22")="xx":
1 "22")="G":
1 "20")="c":
1 "2","1","1700","2","3500"
1 "2")="n")+("South,"
1 "1st NAME ? >";a$:
1 "18"+n)="G"
1 "18"+M)=r$:
1 "18"+M)="G":
1 "18")="0":
1 "17")="1":
1 "16/48EXPL
1 "16/48D&G18"
1 "11","2","1630","3","1640","4","1650","28","1660","29","1660","30","1660","31","1660","39","1660","36","1660","8","1620","42","1690"
1 "''"as 23635 hold the address of
1 "''"You can now continue your quest."'"Write this code on the inlay"'"card so that you can start the next episode"
1 "''""''" I don't want to know any more":
1 "'"If it does not verify type GOTO GO":
1 ""the number is smaller than "";guess
1 ""smaller"""'"80 IF guess<x
1 ""smaller"""'"40 IF g<x
1 ""correct."""'"100 GO TO 40"
1 ""correct"""'"60 GO TO 20"
1 ""bigger"""'"90 IF guess=x
1 ""bigger"""'"50 IF g=x
1 ""a"","'"the program starts at
1 "","WELCOME TO :","RALPH ON ALPHA 2.","","","AUTHORS :","DARREN FARMER.","ANDREW DUNNE."
1 "","GRAPHICS :","ANDREW DUNNE.","","MUSIC :","DARREN FARMER.","","GAME CONCEPT :","21ST CENTURY SOFTWARE.","","WITH ACKNOWLEDGMENTS TO :","16/48 MAGAZINE."
1 "","","WARNING :","ANYONE CAUGHT COPYING THIS","GAME WILL BE SEVERELY SMACKED,","TOLD OFF AND MADE TO EAT","10LBS OF JELLIED EELS ....","","","","","@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@","@@@ YOU HAVE BEEN WARNED ! @@@","@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
1 "","","TO START THE GAME :","PRESS THE 'S' KEY.","","","MOVEMENT KEYS :","CURSOR AND INTERFACE 2","CAN BE DEFINED.","","KEYS CURRENTLY SET AS :-","'"+K$(1
1 "","","","","NOW ENTERING DEMO MODE ....","","","","","QUIT"
1 " TO PRODUCE AN EXPLOSION, THE VARIABLES EX1,EY1,EX2,EY2,WX1, WY1,WX2,WY2,GRAV,SLOWER, AND VRANGE MUST BE SET. LINES 10-13 OF THIS PROGRAM SET SOME DEFAULTVALUES."
1 " THIS LEAVES ENOUGH MEMORY FOR IT TO EXPLODE SHAPES OF UP TO ABOUT 800 PIXELS."
1 " THESE VARIABLES MUST BE SET TO THE CORNERS OF THE RECTANGLE CONTAINING THE OBJECT TO BE DESTROYED.";
1 " THE VARIABLE 'SLOWER', WHEN SETTO A VALUE OTHER THAN 0, SLOWS THE EXPLOSION DOWN. THIS IS NECCESSARY WHEN EXPLODING A VERYSMALL OBJECT."
1 " NOTE THAT FOR ALL COORDINATES IN THIS PROGRAM (0,0) IS AT THE
1 " EX1 AND EY1 HOLD THE COORDINATES OF THE POINT AT THE TOP LEFT OF THE RECTANGLE, EX2 AND EY2 HOLD THE COORDINATES OF THE POINT AT THE BOTTOM RIGHT."
1 " 'GRAV = 1' GIVES A VERY STRONG FORCE, GREATER VALUES GIVE MORE MODERATE RESULTS. I FIND THAT VALUES 5-20 GIVE BEST RESULTS."
1 " 'GOSUB 9000' WILL THEN POKE THESE VALUES INTO THE CORRECT LOCATIONS."
1 " KEVIN D. COWTAN"
1 to see the listing.(justkeep pressing ENTER to get back to this page.)"''"Press
1 to save the program to a blank tape"''"
1 to run the program againPress
1 to run the new version,"''"Press
1 to read again.";
1 to quit & load the MACHINE CODE TUTOR.(Out of the frying pan!)":
1 to quit & load the ADVENTURE.":
1 to move on"
1 to load ";:
1 to escape."
1 to NEW it"
1 saves to Microdrive"''"
1 saga and give some help
1 right and
1 add 1 to count
1 UNDER THE SLEEPING QUARTERS!!
1 Special Commands"
1 NEVER EVER TRY THIS
1 LEFT OF THE SCREEN, AS ON THE PRINT MATRIX."
1 INTO THE CRYSTAL MINE WE GO !
1 INSTRUCTIONS
1 How to play the game"
1 Entry code;
1 16/48 Magazine Ltd. *6\$:
1 - SAVE M/CODE TO TAPE."
1 - SAVE M/CODE TO MICRODRIVE."
1 - READ THIS ARTICLE AGAIN."
1 - LOAD THE REVIEWS."
1 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
1 to make the program easier and more fun to use, and"''"
1 to make the listing clearer so that future editing by the author or someone else requires less deciphering."
1 Try to build up a repertoire of good programming practices."
1 THE SURVEILLANCE PLATFORM.
1 THE LIFE SUPPORT SYSTEM !
1 Show how the program can be improved,"''"
1 INTO THE HEART OF THE MINES.
1 Explain the function of each line,"''"
1 wedge"'"
1 sand wedge."'''"
1 THE VENTILATOR SHAFTS !!!
1 THE MAIN GENERATOR ROOM !!
1 PRESS ANY KEY TO CONTINUE
1 LD A,2 (select channel) CALL 1601H (open channel) LD DE,SPRITE LD BC,08 (length) CALL 203CH RET
1 Driver"'"
1 CENTRAL VENTILATOR SHAFTS. "
1 AT LAST !! - A WAY OUT ???
1 3 wood"'"
1 2 wood"'"
1 9 iron"'"
1 3 iron"'"up to"'"
1 %
1 THE MAIN MINE SHAFT !!
1 THE STRONG-HOLD
1 Program by Barry Thorne Graphics by Jim Dann
1
1
1
1
1
1
1
1
1
1
1
1
1
1